Background

Info

Original paper on Russian Troll Tweets:

Why We’re Sharing 3 Million Russian Troll Tweets Oliver Roeder. PloS ONE


Additional links or sources…

Troll Factories: The Internet Research Agency and State-Sponsored Agenda Building Darren L. Linvill. (http://pwarren.people.clemson.edu/Linvill_Warren_TrollFactory.pdf) *

Packages

The Russian Troll Tweets data set comes from the ‘fivethirtyeight’ github repo. You can install it by using the code below:

install.packages("fivethirtyeight")
# or
# install.packages("remotes")
remotes::install_github("fivethirtyeight")

Code for obtaining data…


Information about the dataset…

Import

Import

The complete data set contains three million tweets. For the sake of storage we pulled 1,000 tweets from three different sub sets of data to work with.

glimpse(tweet_6_raw)
Rows: 1,000
Columns: 21
$ external_author_id <dbl> 2535818742, 2535818742, 2535818742, 2535818742, 253…
$ author             <chr> "HAPPKENDRAHAPPY", "HAPPKENDRAHAPPY", "HAPPKENDRAHA…
$ content            <chr> "Bosh situation hasn't changed since Feb. Heat doct…
$ region             <chr> "United States", "United States", "United States", …
$ language           <chr> "English", "English", "English", "English", "Englis…
$ publish_date       <chr> "9/23/2016 17:08", "9/23/2016 17:08", "9/23/2016 17…
$ harvested_date     <chr> "9/23/2016 17:08", "9/23/2016 17:08", "9/23/2016 17…
$ following          <dbl> 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 131…
$ followers          <dbl> 1688, 1688, 1688, 1688, 1688, 1688, 1688, 1688, 168…
$ updates            <dbl> 2285, 2284, 2286, 2290, 2289, 2288, 2291, 2293, 229…
$ post_type          <chr> "RETWEET", "RETWEET", "RETWEET", "RETWEET", "RETWEE…
$ account_type       <chr> "Right", "Right", "Right", "Right", "Right", "Right…
$ retweet            <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, …
$ account_category   <chr> "RightTroll", "RightTroll", "RightTroll", "RightTro…
$ new_june_2018      <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
$ alt_external_id    <dbl> 2535818742, 2535818742, 2535818742, 2535818742, 253…
$ tweet_id           <dbl> 779366817752084480, 779366807446642688, 77936682858…
$ article_url        <chr> "http://twitter.com/happkendrahappy/statuses/779366…
$ tco1_step1         <chr> NA, "https://twitter.com/erecordscity/status/779354…
$ tco2_step1         <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ tco3_step1         <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
glimpse(tweet_1_raw)
Rows: 1,000
Columns: 21
$ external_author_id <dbl> 906000000000000000, 906000000000000000, 90600000000…
$ author             <chr> "10_GOP", "10_GOP", "10_GOP", "10_GOP", "10_GOP", "…
$ content            <chr> "\"We have a sitting Democrat US Senator on trial f…
$ region             <chr> "Unknown", "Unknown", "Unknown", "Unknown", "Unknow…
$ language           <chr> "English", "English", "English", "English", "Englis…
$ publish_date       <chr> "10/1/2017 19:58", "10/1/2017 22:43", "10/1/2017 22…
$ harvested_date     <chr> "10/1/2017 19:59", "10/1/2017 22:43", "10/1/2017 22…
$ following          <dbl> 1052, 1054, 1054, 1062, 1050, 1050, 1050, 1050, 105…
$ followers          <dbl> 9636, 9637, 9637, 9642, 9645, 9644, 9644, 9644, 964…
$ updates            <dbl> 253, 254, 255, 256, 246, 247, 248, 249, 250, 251, 2…
$ post_type          <chr> NA, NA, "RETWEET", NA, "RETWEET", NA, "RETWEET", NA…
$ account_type       <chr> "Right", "Right", "Right", "Right", "Right", "Right…
$ retweet            <dbl> 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
$ account_category   <chr> "RightTroll", "RightTroll", "RightTroll", "RightTro…
$ new_june_2018      <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
$ alt_external_id    <dbl> 905874659358453760, 905874659358453760, 90587465935…
$ tweet_id           <dbl> 914580356430536704, 914621840496189440, 91462349037…
$ article_url        <chr> "http://twitter.com/905874659358453760/statuses/914…
$ tco1_step1         <chr> "https://twitter.com/10_gop/status/9145803564305367…
$ tco2_step1         <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ tco3_step1         <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
glimpse(tweet_9_raw)
Rows: 1,000
Columns: 21
$ external_author_id <dbl> 3771665775, 3771665775, 3771665775, 3771665775, 377…
$ author             <chr> "NOVOSTIKRSNDR", "NOVOSTIKRSNDR", "NOVOSTIKRSNDR", …
$ content            <chr> "Рейтинговое агентство Moody's улучшило прогноз по …
$ region             <chr> "Unknown", "Unknown", "Unknown", "Unknown", "Unknow…
$ language           <chr> "Ukrainian", "Russian", "Serbian", "Russian", "Uzbe…
$ publish_date       <chr> "2/26/2017 15:12", "2/26/2017 16:50", "2/26/2017 18…
$ harvested_date     <chr> "2/26/2017 15:12", "3/4/2017 2:29", "2/26/2017 18:3…
$ following          <dbl> 284, 284, 284, 284, 284, 284, 284, 284, 284, 284, 2…
$ followers          <dbl> 3861, 3865, 3861, 3861, 3862, 3862, 3862, 3862, 386…
$ updates            <dbl> 5586, 6058, 5589, 5566, 5651, 5658, 5656, 5657, 565…
$ post_type          <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ account_type       <chr> "Russian", "Russian", "Russian", "Russian", "Russia…
$ retweet            <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
$ account_category   <chr> "NonEnglish", "NonEnglish", "NonEnglish", "NonEngli…
$ new_june_2018      <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, …
$ alt_external_id    <dbl> 3771665775, 3771665775, 3771665775, 3771665775, 377…
$ tweet_id           <dbl> 835870062510645248, 835894718659690496, 83591987323…
$ article_url        <chr> "http://twitter.com/3771665775/statuses/83587006251…
$ tco1_step1         <chr> "https://twitter.com/NovostiKrsndr/status/835870062…
$ tco2_step1         <chr> "http://dlvr.it/NThR1P", "http://dlvr.it/NTk4wc", "…
$ tco3_step1         <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…

Skim

# A tibble: 21 × 19
   skim_type skim_vari…¹ n_mis…² compl…³ chara…⁴ chara…⁵ chara…⁶ chara…⁷ chara…⁸
   <chr>     <chr>         <int>   <dbl>   <int>   <int>   <int>   <int>   <int>
 1 character author            0   1           6      12       0       5       0
 2 character content           0   1          13     172       0     979       0
 3 character region            1   0.999       5      13       0       3       0
 4 character language          0   1           7      18       0      10       0
 5 character publish_da…       0   1          13      16       0     970       0
 6 character harvested_…       0   1          13      16       0     974       0
 7 character post_type       344   0.656       7      11       0       2       0
 8 character account_ty…       0   1           4       7       0       4       0
 9 character account_ca…       0   1          10      10       0       3       0
10 character article_url       0   1          56      65       0    1000       0
# … with 11 more rows, 10 more variables: logical.mean <dbl>,
#   logical.count <chr>, numeric.mean <dbl>, numeric.sd <dbl>,
#   numeric.p0 <dbl>, numeric.p25 <dbl>, numeric.p50 <dbl>, numeric.p75 <dbl>,
#   numeric.p100 <dbl>, numeric.hist <chr>, and abbreviated variable names
#   ¹​skim_variable, ²​n_missing, ³​complete_rate, ⁴​character.min, ⁵​character.max,
#   ⁶​character.empty, ⁷​character.n_unique, ⁸​character.whitespace
# A tibble: 21 × 19
   skim_type skim_vari…¹ n_mis…² compl…³ chara…⁴ chara…⁵ chara…⁶ chara…⁷ chara…⁸
   <chr>     <chr>         <int>   <dbl>   <int>   <int>   <int>   <int>   <int>
 1 character author            0   1           9      15       0      13       0
 2 character content           0   1           9     164       0     988       0
 3 character region            0   1           7      13       0       2       0
 4 character language          0   1           5      10       0      17       0
 5 character publish_da…       0   1          13      16       0     628       0
 6 character harvested_…       0   1          13      16       0     633       0
 7 character post_type       691   0.309       7      11       0       2       0
 8 character account_ty…       0   1           1       9       0       5       0
 9 character account_ca…       0   1           7      12       0       5       0
10 character article_url       0   1          56      65       0    1000       0
# … with 11 more rows, 10 more variables: logical.mean <dbl>,
#   logical.count <chr>, numeric.mean <dbl>, numeric.sd <dbl>,
#   numeric.p0 <dbl>, numeric.p25 <dbl>, numeric.p50 <dbl>, numeric.p75 <dbl>,
#   numeric.p100 <dbl>, numeric.hist <chr>, and abbreviated variable names
#   ¹​skim_variable, ²​n_missing, ³​complete_rate, ⁴​character.min, ⁵​character.max,
#   ⁶​character.empty, ⁷​character.n_unique, ⁸​character.whitespace
# A tibble: 21 × 19
   skim_type skim_vari…¹ n_mis…² compl…³ chara…⁴ chara…⁵ chara…⁶ chara…⁷ chara…⁸
   <chr>     <chr>         <int>   <dbl>   <int>   <int>   <int>   <int>   <int>
 1 character author            0   1          13      14       0       2       0
 2 character content           0   1          23     164       0     999       0
 3 character region            6   0.994       7      18       0       2       0
 4 character language          0   1           5      10       0       6       0
 5 character publish_da…       0   1          13      16       0     943       0
 6 character harvested_…       0   1          13      16       0     951       0
 7 character account_ty…       0   1           7       7       0       1       0
 8 character account_ca…       0   1          10      10       0       1       0
 9 character article_url       0   1          57      61       0    1000       0
10 character tco1_step1        0   1          21      68       0     999       0
# … with 11 more rows, 10 more variables: logical.mean <dbl>,
#   logical.count <chr>, numeric.mean <dbl>, numeric.sd <dbl>,
#   numeric.p0 <dbl>, numeric.p25 <dbl>, numeric.p50 <dbl>, numeric.p75 <dbl>,
#   numeric.p100 <dbl>, numeric.hist <chr>, and abbreviated variable names
#   ¹​skim_variable, ²​n_missing, ³​complete_rate, ⁴​character.min, ⁵​character.max,
#   ⁶​character.empty, ⁷​character.n_unique, ⁸​character.whitespace

Visualize

Numeric

Code for creating graphs…

Types

Character

List of 93
 $ line                      :List of 6
  ..$ colour       : Named chr "#93a1a1"
  .. ..- attr(*, "names")= chr "rebase01"
  ..$ size         : num 0.364
  ..$ linetype     : num 1
  ..$ lineend      : chr "butt"
  ..$ arrow        : logi FALSE
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_line" "element"
 $ rect                      :List of 5
  ..$ fill         : Named chr "#fdf6e3"
  .. ..- attr(*, "names")= chr "rebase03"
  ..$ colour       : Named chr "#93a1a1"
  .. ..- attr(*, "names")= chr "rebase01"
  ..$ size         : num 0.364
  ..$ linetype     : num 1
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_rect" "element"
 $ text                      :List of 11
  ..$ family       : chr ""
  ..$ face         : chr "plain"
  ..$ colour       : Named chr "#93a1a1"
  .. ..- attr(*, "names")= chr "rebase01"
  ..$ size         : num 8
  ..$ hjust        : num 0.5
  ..$ vjust        : num 0.5
  ..$ angle        : num 0
  ..$ lineheight   : num 0.9
  ..$ margin       : 'margin' num [1:4] 0points 0points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : logi FALSE
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ title                     :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : Named chr "#657b83"
  .. ..- attr(*, "names")= chr "rebase0"
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ aspect.ratio              : NULL
 $ axis.title                : NULL
 $ axis.title.x              :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 1
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 2points 0points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.title.x.top          :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 0
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 2points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.title.x.bottom       : NULL
 $ axis.title.y              :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 1
  ..$ angle        : num 90
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 2points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.title.y.left         : NULL
 $ axis.title.y.right        :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 0
  ..$ angle        : num -90
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 0points 2points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.text                 :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : chr "grey30"
  ..$ size         : 'rel' num 0.8
  ..$ hjust        : NULL
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.text.x               :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 1
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 1.6points 0points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.text.x.top           :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : num 0
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 1.6points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.text.x.bottom        : NULL
 $ axis.text.y               :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : num 1
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 1.6points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.text.y.left          : NULL
 $ axis.text.y.right         :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : num 0
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 0points 1.6points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ axis.ticks                :List of 6
  ..$ colour       : Named chr "#93a1a1"
  .. ..- attr(*, "names")= chr "rebase01"
  ..$ size         : NULL
  ..$ linetype     : NULL
  ..$ lineend      : NULL
  ..$ arrow        : logi FALSE
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_line" "element"
 $ axis.ticks.x              : NULL
 $ axis.ticks.x.top          : NULL
 $ axis.ticks.x.bottom       : NULL
 $ axis.ticks.y              : NULL
 $ axis.ticks.y.left         : NULL
 $ axis.ticks.y.right        : NULL
 $ axis.ticks.length         : 'simpleUnit' num 2points
  ..- attr(*, "unit")= int 8
 $ axis.ticks.length.x       : NULL
 $ axis.ticks.length.x.top   : NULL
 $ axis.ticks.length.x.bottom: NULL
 $ axis.ticks.length.y       : NULL
 $ axis.ticks.length.y.left  : NULL
 $ axis.ticks.length.y.right : NULL
 $ axis.line                 :List of 6
  ..$ colour       : Named chr "#93a1a1"
  .. ..- attr(*, "names")= chr "rebase01"
  ..$ size         : NULL
  ..$ linetype     : num 1
  ..$ lineend      : NULL
  ..$ arrow        : logi FALSE
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_line" "element"
 $ axis.line.x               : NULL
 $ axis.line.x.top           : NULL
 $ axis.line.x.bottom        : NULL
 $ axis.line.y               : NULL
 $ axis.line.y.left          : NULL
 $ axis.line.y.right         : NULL
 $ legend.background         :List of 5
  ..$ fill         : NULL
  ..$ colour       : logi NA
  ..$ size         : NULL
  ..$ linetype     : NULL
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_rect" "element"
 $ legend.margin             : 'margin' num [1:4] 4points 4points 4points 4points
  ..- attr(*, "unit")= int 8
 $ legend.spacing            : 'simpleUnit' num 8points
  ..- attr(*, "unit")= int 8
 $ legend.spacing.x          : NULL
 $ legend.spacing.y          : NULL
 $ legend.key                :List of 5
  ..$ fill         : chr "white"
  ..$ colour       : logi NA
  ..$ size         : NULL
  ..$ linetype     : num 0
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_rect" "element"
 $ legend.key.size           : 'simpleUnit' num 1.2lines
  ..- attr(*, "unit")= int 3
 $ legend.key.height         : NULL
 $ legend.key.width          : NULL
 $ legend.text               :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : 'rel' num 0.8
  ..$ hjust        : NULL
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ legend.text.align         : NULL
 $ legend.title              :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : num 0
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ legend.title.align        : NULL
 $ legend.position           : chr "right"
 $ legend.direction          : NULL
 $ legend.justification      : chr "center"
 $ legend.box                : NULL
 $ legend.box.just           : NULL
 $ legend.box.margin         : 'margin' num [1:4] 0cm 0cm 0cm 0cm
  ..- attr(*, "unit")= int 1
 $ legend.box.background     : list()
  ..- attr(*, "class")= chr [1:2] "element_blank" "element"
 $ legend.box.spacing        : 'simpleUnit' num 8points
  ..- attr(*, "unit")= int 8
 $ panel.background          :List of 5
  ..$ fill         : Named chr "#fdf6e3"
  .. ..- attr(*, "names")= chr "rebase03"
  ..$ colour       : Named chr "#93a1a1"
  .. ..- attr(*, "names")= chr "rebase01"
  ..$ size         : NULL
  ..$ linetype     : NULL
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_rect" "element"
 $ panel.border              : list()
  ..- attr(*, "class")= chr [1:2] "element_blank" "element"
 $ panel.spacing             : 'simpleUnit' num 4points
  ..- attr(*, "unit")= int 8
 $ panel.spacing.x           : NULL
 $ panel.spacing.y           : NULL
 $ panel.grid                :List of 6
  ..$ colour       : Named chr "#eee8d5"
  .. ..- attr(*, "names")= chr "rebase02"
  ..$ size         : NULL
  ..$ linetype     : NULL
  ..$ lineend      : NULL
  ..$ arrow        : logi FALSE
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_line" "element"
 $ panel.grid.major          :List of 6
  ..$ colour       : Named chr "#eee8d5"
  .. ..- attr(*, "names")= chr "rebase02"
  ..$ size         : NULL
  ..$ linetype     : NULL
  ..$ lineend      : NULL
  ..$ arrow        : logi FALSE
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_line" "element"
 $ panel.grid.minor          :List of 6
  ..$ colour       : Named chr "#eee8d5"
  .. ..- attr(*, "names")= chr "rebase02"
  ..$ size         : 'rel' num 0.5
  ..$ linetype     : NULL
  ..$ lineend      : NULL
  ..$ arrow        : logi FALSE
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_line" "element"
 $ panel.grid.major.x        : NULL
 $ panel.grid.major.y        : NULL
 $ panel.grid.minor.x        : NULL
 $ panel.grid.minor.y        : NULL
 $ panel.ontop               : logi FALSE
 $ plot.background           :List of 5
  ..$ fill         : NULL
  ..$ colour       : logi NA
  ..$ size         : NULL
  ..$ linetype     : num 0
  ..$ inherit.blank: logi FALSE
  ..- attr(*, "class")= chr [1:2] "element_rect" "element"
 $ plot.title                :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : 'rel' num 1.2
  ..$ hjust        : num 0
  ..$ vjust        : num 1
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 4points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ plot.title.position       : chr "panel"
 $ plot.subtitle             :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : num 0
  ..$ vjust        : num 1
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 0points 0points 4points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ plot.caption              :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : 'rel' num 0.8
  ..$ hjust        : num 1
  ..$ vjust        : num 1
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 4points 0points 0points 0points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ plot.caption.position     : chr "panel"
 $ plot.tag                  :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : 'rel' num 1.2
  ..$ hjust        : num 0.5
  ..$ vjust        : num 0.5
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ plot.tag.position         : chr "topleft"
 $ plot.margin               : 'margin' num [1:4] 4points 4points 4points 4points
  ..- attr(*, "unit")= int 8
 $ strip.background          :List of 5
  ..$ fill         : chr "grey85"
  ..$ colour       : chr "grey20"
  ..$ size         : NULL
  ..$ linetype     : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_rect" "element"
 $ strip.background.x        : NULL
 $ strip.background.y        : NULL
 $ strip.placement           : chr "inside"
 $ strip.text                :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : chr "grey10"
  ..$ size         : 'rel' num 0.8
  ..$ hjust        : NULL
  ..$ vjust        : NULL
  ..$ angle        : NULL
  ..$ lineheight   : NULL
  ..$ margin       : 'margin' num [1:4] 3.2points 3.2points 3.2points 3.2points
  .. ..- attr(*, "unit")= int 8
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ strip.text.x              : NULL
 $ strip.text.y              :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : NULL
  ..$ angle        : num -90
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 $ strip.switch.pad.grid     : 'simpleUnit' num 2points
  ..- attr(*, "unit")= int 8
 $ strip.switch.pad.wrap     : 'simpleUnit' num 2points
  ..- attr(*, "unit")= int 8
 $ strip.text.y.left         :List of 11
  ..$ family       : NULL
  ..$ face         : NULL
  ..$ colour       : NULL
  ..$ size         : NULL
  ..$ hjust        : NULL
  ..$ vjust        : NULL
  ..$ angle        : num 90
  ..$ lineheight   : NULL
  ..$ margin       : NULL
  ..$ debug        : NULL
  ..$ inherit.blank: logi TRUE
  ..- attr(*, "class")= chr [1:2] "element_text" "element"
 - attr(*, "class")= chr [1:2] "theme" "gg"
 - attr(*, "complete")= logi TRUE
 - attr(*, "validate")= logi TRUE

Future Work